COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C LOAD WITH PLOT3.FAI[NEW,LCS], MSSIO.FAI[NEW,LCS]
C00003 ENDMK
C⊗;
C LOAD WITH PLOT3.FAI[NEW,LCS], MSSIO.FAI[NEW,LCS]
	COMMON/DL/SIZE /OUTF/NAME,KK,KNT /TTOP/T,TT,TTT,TTTT
	REAL I
	DIMENSION I(4),J(3),X(3)
	EQUIVALENCE (I(2),X1,X(1),J,J1),(X3,J3,J(3)),(X2,J2,J(2))
	DATA Z1/0/,Z2/-600./
	NAME='PLT'
	T=-99999.
	TT=-T
	TTT=TT
	TTTT=-TTT
	TYPE 1
	ACCEPT 2,SIZE
	IF(SIZE.EQ.0)SIZE=1
1	FORMAT(' SIZE FACTOR  '$)
2	FORMAT(F)
3	FORMAT(4F)
	REWIND 22
	CALL PLOT(0,1000,-3)
4	READ(22,3,END=100)I
	J3=X3
	J1=X1*SIZE-Z1
	J2=X2*SIZE+Z2
C Z1,Z2 ARE OFFSETS
	IF(J3.GT.0)J3=3
	IF(J3.EQ.0)J3=2
	CALL PLOT(J1,J2,J3)
	GO TO 4
100	J3=99
	CALL PLOT(J1,J2,J3)
	END